unit unitDMMain;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, SQLite3Conn, SQLDB;

type

  { TDMMain }

  TDMMain = class(TDataModule)
    UMConn: TSQLite3Connection;
    UMransaction: TSQLTransaction;
    procedure DataModuleCreate(Sender: TObject);
  private

  public

  end;

var
  DMMain: TDMMain;

implementation

{$R *.lfm}

{ TDMMain }

procedure TDMMain.DataModuleCreate(Sender: TObject);
begin
  UMConn.DatabaseName := ExtractFilePath(ParamStr(0)) + 'absent_minded.dat';
end;

end.

